home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / weblibev / weblibvb.txt < prev    next >
Encoding:
Text File  |  1995-09-22  |  11.1 KB  |  175 lines
  1. '==============================================================================
  2. ' Copyright 1995 by Potomac Software, Inc. Use of this material is subject to
  3. ' the terms and conditions of the software license agreement.
  4. '      
  5. ' WEBLIBVB.TXT: Contains Visual Basic declarations for WebLib (TM).         
  6. '============================================================================== 
  7.  
  8. '==============================================================================
  9. ' Flags that may be passed to action functions                           
  10. '==============================================================================
  11.  
  12. '========== Flags for ConnectBrowser ==========
  13. Global Const WL_STARTBROWSER = &H1                      ' Start browser if not running
  14. Global Const WL_SENDMESSAGE = &H2                        ' Notify caller via SendMessage
  15. Global Const WL_POSTMESSAGE = &H4                        ' Notify caller via PostMessage
  16.  
  17. '========== Flags for GetWindowInfo, ActivateWindow and OpenURL ==========
  18. Global Const WL_ACTIVEWINDOW = &HFFFFFFFF&                ' Operate on active window
  19. Global Const WL_LASTACTIVEWINDOW = &HFFFFFFFF&             ' Activate last active window
  20. Global Const WL_NEWWINDOW = &H0&                        ' Create new window for URL
  21.  
  22. '========== Flags for SetWindowPos ==========
  23. Global Const WL_NOCHANGE = &HFFFFFFFF&                    ' Do not change x, y, width, height
  24.  
  25. '========== Flags for ShowWindow ==========
  26. Global Const WL_MINIMIZE = &H1                            ' Minimize window
  27. Global Const WL_MAXIMIZE = &H2                             ' Maximize window
  28. Global Const WL_NORMAL = &H3                             ' Restore window to normal size
  29.  
  30. '========== Flags for OpenURL, values must conform to DDE API ==========
  31. Global Const WL_NODOCUMENTCACHE = &H1                    ' Ignore browser's doc cache
  32. Global Const WL_NOIMAGECACHE = &H2                        ' Ignore browser's image cache
  33. Global Const WL_BACKGROUNDMODE = &H4                    ' Operate in background mode 
  34.  
  35. '========== Flags for RegisterViewer, values must conform to DDE API ==========
  36. Global Const WL_SHELLEXECUTE = &H1                        ' Launch viewer using ShellExecute
  37. Global Const WL_QUERYVIEWER = &H2                        ' Send event to query filename
  38. Global Const WL_VIEWDOCFILE = &H4                        ' Send event to view filename
  39.  
  40. '========== Flags for SetToolbarText ==========
  41. Global Const WL_TOOLBARTEXT    = -1                        ' Set toolbar text, not button text
  42.  
  43. '========== Flags for SetToolbarFont ==========
  44. Global Const WL_TOOLBARFONT =  &H1                        ' Set font for toolbar text
  45. Global Const WL_BUTTONFONT = &H2                        ' Set font for button text
  46.  
  47. '========== Flags for SetToolbarTextColor ==========
  48. Global Const WL_TOOLBARTEXTCOLOR = &H1                    ' Set color for toolbar text
  49. Global Const WL_BUTTONTEXTCOLOR = &H2                    ' Set color for button text
  50.  
  51. '========== Flags for WindowChange notification event ==========
  52. Global Const WLF_MOVESIZE = &H00001&
  53. Global Const WLF_MAXIMIZED = &H00002&
  54. Global Const WLF_NORMALIZED    = &H00004&
  55. Global Const WLF_MINIMIZED = &H00008&
  56. Global Const WLF_CLOSED    = &H00010&
  57. Global Const WLF_EXITING = &H10000& 
  58.  
  59. '========== Values returned by getting the Actions property of WLBrowser ==========
  60.  
  61. Global Const ACTION_CONNECTBROWSER = 1&
  62. Global Const ACTION_DISCONNECTBROWSER = 2& 
  63. Global Const ACTION_GETWINDOWINFO = 3&
  64. Global Const ACTION_LISTWINDOWS = 4& 
  65. Global Const ACTION_ACTIVATEWINDOW = 5& 
  66. Global Const ACTION_CLOSEWINDOW = 6& 
  67. Global Const ACTION_SETWINDOWPOS = 7& 
  68. Global Const ACTION_SHOWWINDOW = 8& 
  69. Global Const ACTION_SHOWFILE = 9& 
  70. Global Const ACTION_OPENURL = 10& 
  71. Global Const ACTION_SAVEURL = 11& 
  72. Global Const ACTION_POSTFORMDATA = 12& 
  73. Global Const ACTION_SAVEFORMDATA = 13& 
  74. Global Const ACTION_CANCEL = 14& 
  75. Global Const ACTION_REGISTERPROTOCOL = 15& 
  76. Global Const ACTION_REGISTERURLECHO = 16& 
  77. Global Const ACTION_REGISTERVIEWER = 17& 
  78. Global Const ACTION_REGISTERWINDOWCHANGE = 18& 
  79. Global Const ACTION_PARSEANCHOR = 19& 
  80. Global Const ACTION_GETVERSION = 20& 
  81. Global Const ACTION_QUERYURLFILE = 21& 
  82. Global Const ACTION_SETNOTIFYMETHOD = 22& 
  83. Global Const ACTION_GETTRANSACTIONWINDOW = 23& 
  84. Global Const ACTION_APPENDFORMDATA = 24& 
  85. Global Const ACTION_ACCESSFORMDATA = 25&
  86.  
  87. '========== Values returned by getting the Actions property of WLToolbar ==========
  88.  
  89. Global Const ACTION_CREATETOOLBAR = 1& 
  90. Global Const ACTION_DELETETOOLBAR = 2& 
  91. Global Const ACTION_ISTOOLBARACTIVE = 3&
  92. Global Const ACTION_SETACTIVETOOLBAR = 4& 
  93. Global Const ACTION_ADDTOOLBARBUTTON = 5& 
  94. Global Const ACTION_REMOVETOOLBARBUTTON = 6& 
  95. Global Const ACTION_ISTOOLBARBUTTONVISIBLE = 7& 
  96. Global Const ACTION_SHOWTOOLBARBUTTON = 8& 
  97. Global Const ACTION_ENABLETOOLBARBUTTON = 9& 
  98. Global Const ACTION_ISTOOLBARBUTTONENABLED = 10& 
  99. Global Const ACTION_GETTOOLBARTEXT = 11& 
  100. Global Const ACTION_SETTOOLBARTEXT = 12& 
  101. Global Const ACTION_GETTOOLBARFONT = 13& 
  102. Global Const ACTION_SETTOOLBARFONT = 14& 
  103. Global Const ACTION_GETTOOLBARBKGND = 15& 
  104. Global Const ACTION_SETTOOLBARBKGND = 16& 
  105. Global Const ACTION_GETTOOLBARTEXTCOLOR = 17& 
  106. Global Const ACTION_SETTOOLBARTEXTCOLOR = 18&
  107.  
  108. ' ============================================================================
  109. '  Housekeeping functions, call from startup form Load/Unload or Sub Main   
  110. ' ============================================================================
  111.  
  112. Declare Function weblibStartup Lib "weblibvb.vbx" () As Integer
  113. Declare Function weblibCleanup Lib "weblibvb.vbx" () As Integer
  114.  
  115. ' ============================================================================
  116. '  Action functions for WLBrowser control 
  117. ' ============================================================================
  118.  
  119. Declare Function actionConnectBrowser Lib "weblibvb.vbx" (ByVal wOptions As Integer) As Long
  120. Declare Function actionDisconnectBrowser Lib "weblibvb.vbx" (ByVal bExit As Integer) As Long
  121. Declare Function actionGetWindowInfo Lib "weblibvb.vbx" (ByVal dwWindow As Long) As Long
  122. Declare Function actionListWindows Lib "weblibvb.vbx" () As Long
  123. Declare Function actionActivateWindow Lib "weblibvb.vbx" (ByVal dwWindow As Long) As Long
  124. Declare Function actionCloseWindow Lib "weblibvb.vbx" (ByVal dwWindow As Long) As Long
  125. Declare Function actionSetWindowPos Lib "weblibvb.vbx" (ByVal dwWindow As Long, ByVal dwX As Long, ByVal dwY As Long, ByVal dwWidth As Long, ByVal dwHeight As Long) As Long
  126. Declare Function actionShowWindow Lib "weblibvb.vbx" (ByVal dwWindow As Long, ByVal nShow As Integer) As Long
  127. Declare Function actionShowFile Lib "weblibvb.vbx" (ByVal lpszFile As String, ByVal lpszMIMEType As String, ByVal dwWindow As Long, ByVal lpszURL As String) As Long
  128. Declare Function actionOpenURL Lib "weblibvb.vbx" (ByVal lpszURL As String, ByVal dwWindow As Long, ByVal wOptions As Integer) As Long
  129. Declare Function actionSaveURL Lib "weblibvb.vbx" (ByVal lpszURL As String, ByVal lpszFile As String, ByVal dwWindow As Long, ByVal wOptions As Integer) As Long
  130. Declare Function actionPostFormData Lib "weblibvb.vbx" (ByVal lpszURL As String, ByVal dwWindow As Long, ByVal lpszFormData As String, ByVal lpszMIMEType As String) As Long
  131. Declare Function actionSaveFormData Lib "weblibvb.vbx" (ByVal lpszURL As String, ByVal lpszFile As String, ByVal dwWindow As Long, ByVal lpszFormData As String, ByVal lpszMIMEType As String) As Long
  132. Declare Function actionCancel Lib "weblibvb.vbx" (ByVal dwTransaction As Long) As Long
  133. Declare Function actionRegisterProtocol Lib "weblibvb.vbx" (ByVal lpszProtocol As String) As Long
  134. Declare Function actionUnregisterProtocol Lib "weblibvb.vbx" (ByVal lpszProtocol As String) As Long
  135. Declare Function actionRegisterURLEcho Lib "weblibvb.vbx" () As Long
  136. Declare Function actionUnregisterURLEcho Lib "weblibvb.vbx" () As Long
  137. Declare Function actionRegisterViewer Lib "weblibvb.vbx" (ByVal lpszMIMEType As String, ByVal wOptions As Integer) As Long
  138. Declare Function actionUnregisterViewer Lib "weblibvb.vbx" (ByVal lpszMIMEType As String) As Long
  139. Declare Function actionRegisterWindowChange Lib "weblibvb.vbx" (ByVal dwWindow As Long) As Long
  140. Declare Function actionUnregisterWindowChange Lib "weblibvb.vbx" (ByVal dwWindow As Long) As Long
  141. Declare Function actionParseAnchor Lib "weblibvb.vbx" (ByVal lpszAbsoluteURL As String, ByVal lpszRelativeURL As String) As Long
  142. Declare Function actionGetVersion Lib "weblibvb.vbx" (ByVal wMajor As Integer, ByVal wMinor As Integer) As Long
  143. Declare Function actionQueryURLFile Lib "weblibvb.vbx" (ByVal lpszFile As String) As Long
  144. Declare Function actionSetNotifyMethod Lib "weblibvb.vbx" (ByVal wMethod As Integer) As Long
  145. Declare Function actionGetTransactionWindow Lib "weblibvb.vbx" (ByVal dwTransaction As Long) As Long
  146.  
  147. Declare Function actionAppendFormData Lib "weblibvb.vbx" (ByVal lpszName As String,ByVal lpszData As String,ByVal cbData As Integer) As Long
  148. Declare Function actionAccessFormData Lib "weblibvb.vbx" () As Long
  149.  
  150. ' ============================================================================
  151. '  Action functions for WLToolbar control 
  152. ' ============================================================================
  153.  
  154. Declare Function actionCreateToolbar Lib "weblibvb.vbx" (ByVal szMenuText As String) As Long
  155. Declare Function actionDeleteToolbar Lib "weblibvb.vbx" () As Long
  156. Declare Function actionIsToolbarActive Lib "weblibvb.vbx" () As Long
  157. Declare Function actionSetActiveToolbar Lib "weblibvb.vbx" () As Long
  158. Declare Function actionAddToolbarButtonByHandle Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal nIdx As Integer, ByVal szText As String,ByVal bmUp%,ByVal bmSel%,ByVal bmFoc%,ByVal bmDis%,ByVal bCopy As Integer) As Long
  159. Declare Function actionAddToolbarButtonByID Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal nIdx As Integer, ByVal szText As String,ByVal nInst As Integer,ByVal bmUp%,ByVal bmSel%,ByVal bmFoc%,ByVal bmDis%) As Long
  160. Declare Function actionAddToolbarButtonByName Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal nIdx As Integer, ByVal szText As String,ByVal nInst As Integer,ByVal bmUp$,ByVal bmSel$,ByVal bmFoc$,ByVal bmDis$) As Long
  161. Declare Function actionRemoveToolbarButton Lib "weblibvb.vbx" (ByVal nID As Integer) As Long
  162. Declare Function actionIsToolbarButtonVisible Lib "weblibvb.vbx" (ByVal nID As Integer) As Long
  163. Declare Function actionShowToolbarButton Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal bShow As Integer) As Long
  164. Declare Function actionIsToolbarButtonEnabled Lib "weblibvb.vbx" (ByVal nID As Integer) As Long
  165. Declare Function actionEnableToolbarButton Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal bEnable As Integer) As Long
  166. Declare Function actionGetToolbarText Lib "weblibvb.vbx" (ByVal nID As Integer) As Long
  167. Declare Function actionSetToolbarText Lib "weblibvb.vbx" (ByVal nID As Integer, ByVal szText As String) As Long
  168. Declare Function actionGetToolbarFont Lib "weblibvb.vbx" (ByVal nType As Integer) As Long
  169. Declare Function actionSetToolbarFont Lib "weblibvb.vbx" (ByVal nType As Integer, ByVal nFont As Integer) As Long
  170. Declare Function actionGetToolbarBkgnd Lib "weblibvb.vbx" () As Long
  171. Declare Function actionSetToolbarBkgnd Lib "weblibvb.vbx" (ByVal lBkgndColor As Long) As Long
  172. Declare Function actionGetToolbarTextColor Lib "weblibvb.vbx" (ByVal nType As Integer) As Long
  173. Declare Function actionSetToolbarTextColor Lib "weblibvb.vbx" (ByVal nType As Integer, ByVal lTextColor As Long) As Long
  174.  
  175.